home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Birth of Jesus Activity Center
/
Birth of Jesus Activity Center.iso
/
mac
/
data
/
babyj.dir
/
00292_Script_LC_btnName
< prev
next >
Wrap
Text File
|
1997-11-02
|
1KB
|
36 lines
-- class name buttons
property ancestor
property memID, rollmemID, clkmemID, clkEnable, difficulty, gameID
global gMouseDownList, gMouseUpList, gRolloverList, gHoldOverList, gLastRollover
global gPlayerName, gDifficulty, gGameList, gGameRec, gPlayerID, gNameListTop
global SAVEREC_NAME, SAVEREC_DIFFICULTY
on new me, ch, ink, vis, stdm, rollm, clkm, htime, id
set ancestor = new(script "LC_btnSprite", ch, ink, vis, stdm, rollm, clkm, htime)
set gameID = id
setAt gMouseDownList, ch, me
setAt gMouseUpList, ch, me
setAt gRolloverList, ch, me
setAt gHoldOverList, ch, me
return me
end
on handleAction me
-- respond to click
if the text of member("name" & gameID) <> " " then
set gPlayerID = gNameListTop + gameID
set gGameRec = getAt(gGameList, gPlayerID)
set gPlayerName = getAt(gGameRec, SAVEREC_NAME)
set gDifficulty = getAt(gGameRec, SAVEREC_DIFFICULTY)
handleGoForward
end if
end
on handleHoldOver me
-- respond to Hold Over
end